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ON 
THE 


BRAIN 


The’ field of artificial intelligence 
unquestionably represents one of the most 
exciting aspects of computing today. We 
begin a series of articles exploring this 
fascinating subject in depth, and we will be 
including example programs in BASIC to 
show how key AI techniques can be applied 
to your home micro. 


In the early 1970s, Artificial Intelligence (AI) was 
in the doldrums, especially in the UK. It was 
widely regarded as being the lunatic fringe of 
computer science, and an influential report for the 
Science Research Council by Sir James Lighthill 
had just recommended a drastic cut-back in 
funding. Today, AI is riding high. Its practitioners 
are suddenly so respectable that venture capitalists 
are seeking them out with tempting offers. 
Government agencies are backing costly R & D 
programmes for fear of falling behind in the AI 
race. Meanwhile, software vendors are 
distributing glossy press releases re-defining their 
products as AI systems. 

To understand where AI is today and where 
it is likely to go in the future, it is useful, as with so 
many technologies, to look at its past. We can 
divide our condensed history of artificial 
intelligence into four decade-sized chunks, each 
characterised by a dominant theme. This 
necessarily oversimplifies things but, in doing so, 
brings out the major points. Each of the themes 
can be thought of as the answer you would have 
likely received had you asked an AI researcher of 
the time: ‘What is artificial intelligence all about?’ 


1950s Neural Nets 
1960s Heuristic Search 
1970s Expert Systems 
1980s Machine Learning 


In 1943, Warren McCulloch and Walter Pitts 
proposed a model of the neuron in the human and 
animal brain. These abstract nerve cells provided 
the basis for a mathematically symbolic 
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representation of brain activity. Other workers, 
notably Norbert Wiener, elaborated these and 
similar ideas into the field that became known as 
‘cybernetics’ (a system based on the premise that a 
sentient machine can be constructed by using 
biological methods of feedback and analysis as a 
model). It was from cybernetics that AI emerged 
in the 1950s. 

Early AI researchers took McCulloch’s 
formalised neuron as their building block. 
Considering the immense complexity of the brain, 
it was not altogether surprising that they failed to 
generate intelligent systems based on this model. 
In effect, they were saying: “The brain is an 
intelligent problem solver, so let’s simulate the 
brain’. But the early hardware, to say nothing of 
the software, was not up to the job. 

One of the few successful systems of the time 
was Rosenblatt’s Perceptron. It was an elementary 
visual system that could be taught to recognise 
patterns. Shown in the diagram, the Perceptron 
consists of a finite grid of light-sensitive cells, 
modelling a miniature retina. In addition, there are 
a number of feature-detecting elements — 
graphically called ‘demons’ — which monitor the 
state of groups of cells in the grid. They respond, 
when characteristic subpatterns are present, by 
sending a signal to a decision-maker. The 
decision-maker multiplies each signal from a local 
demon by a positive or negative weighting factor 
and the resulting numbers are added. If the total 
»xceeds a set threshold, the Perceptron indicates: 
yes; otherwise it will be no.. Thus one Perceptron 
can distinguish between two classes of images, 


ARTUICIAL INTELLIGENCE, APPLICATION 


Mechanical Minds 

Artificial Intelligence is 
concerned with the design of 
computer systems that perform 
tasks which would require 
intelligence if done by a human. 
However, its scope has been 
broadened to include perceptual 
tasks, such as sight and 
hearing. The main concern of Al 
research is to program machines 
so that they imitate aspects of 
human behaviour and 
understanding 


THE HOME COMPUTER ADVANCED COURSE 1221 








_ though the same eprbcrles can be extended to 
_ deal with more than two. 

There were at one time great hopes that 

ceptrons could tackle a wide range of problem- 






kers then began to regard human thinking as a 
co-ordination of essentially simple symbol- 
-manipulating tasks. Although this was ostensibly a 
great change in the direction of research, the 
designers were at least on firmer ground, since 
computers can do things such as searching, 
comparing symbols and so on, which they 
identified as being the foundations of intelligent 
problem solving. The difficult part was pane 
these simple activities together. 

The most influential workers in the 1960s were 
Alan Newell and Herbert Simon of Carnegie- 


Mellon University, who worked on theorem- 
proving and computer chess, among other 
investigations. Their most impressive 
achievement was a program called GPS, the 
General Problem Solver. It was general insofar as 
the user defined a ‘task environment’, in terms of 
the objects of a particular domain and the 
operators that could be applied to those objects. 
However, this generality was restricted to puzzles 
with a relatively small set of states and well- 
defined rules. It could work on the Towers of 
Hanoi (see page 474), Cryptarithmetic and other 
similar types of problems in which formalised 
micro-worlds represented the parameters within 
which problems could in fact be solved. What the 
GPS could not do was solve what people would 
regard as real-world problems, such as making 
medical diagnoses, or business decisions based on 
fluctuating currencies. 

The central idea behind GPS was that problem 
solving was a search through a space of potential 
solutions. To make the search efficient, it had to be 
guided by heuristic (learning from its own 
discoveries) rules that directed it towards the 

desired destination, finding a path through, 
essentially, trial and error. Thus an automaton 
wandering around a maze would have to use an 
exhaustive search technique if it knew nothing 
about the structure of that maze; but if 1t had some 
way of telling when it was getting ‘warm’, it could 
be expected to reach its goal state sooner (but not 
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always, since heuristics is not guaranteed to work, 
and occasionally may lead to sojourns down blind 
alleys). During this period, AI workers devised 
several heuristically guided search strategies, 
which we will consider in subsequent instalments. 

The General Problem Solver, as we have said, 
was not much good at solving real-life problems. 
In the 1970s a team led by Edward Feigenbaum at 
Stanford University began to remedy that defect. 
Rather than trying to computerise general 
intelligence, they focused on very narrow areas of 
expertise. Thus the expert system was born. 

The first expert system was Dendral, a mass- 
spectrogram interpreter built as early as 1967; 
though the most influential has proved to be 
Mycin, which dates from 1974. Mycin diagnoses 
bacterial infections of the blood, and prescribes 


drug therapy. It has spawned a whole family of 
medical diagnostic ‘clones’, some of which are in 
routine clinical use. For instance, Puff, a lung 
function diagnostic tool based on the Mycin plan, 
is routinely employed at the Pacific Medical 
Center near San Francisco. 

Mycin introduced a number of new features 
that have become the hallmarks of the expert 
system. First, its ‘knowledge’ consists of hundreds 
of rules such as the following: 


RULE No. 47: 

IF 1) the site of the culture is blood, and 
2) the identity of the organism is not 
known with certainty, and 
3) the stain of the organism is 
gramneg, and 
4) the morphology of the organism is 
rod, and 
5) the patient has been seriously 
burned 
there is weakly suggestive evidence 
(0.4) that the identity of the 
organism is pseudomomas. 


THEN 


Secondly, these rules are probabilisitic. Shortliffe, 
the inventor of Mycin who was a medical doctor, 
devised a scheme based on certainty factors to 
allow the system to reach plausible conclusions 
from uncertain evidence. Thus the number 0.4 is 
not strictly speaking a probability: essentially it isa 
‘fudge factor’. The significant point, however, is 












































Historical Perspective 

Al is becoming an increasingly 
important area of practical 
research, with applications in 
many fields. The history of Al, 
however, covers a short period 
of time compared with many 
other scientific fields, as our 
diagram shows... 


LIZ DIXON 


Edward Feigenbaum 

As leader of an Al team at 
Stanford University, California, 
Edward Feigenbaum developed 
the first expert systems. These 
were notable because they 
moved away from the idea of 
general intelligence programs to 
systems operating within 
closely defined limits of 
knowledge and objectives 


























that Mycin and systems like it can arrive at correct 
conclusions even with incomplete and partly 
erroneous information. They employ some 
method of approximate reasoning — whether 
based on probabilities, Fuzzy Logic (see page 
676), certainty factors or some other likelihood 
calculus—for deriving a good estimate of the truth 
from an imperfect collection of data. 

Thirdly, Mycin can explain its own reasoning 
process. The physician using it can interrogate it in 
various ways, either to ask how it reached a 
particular conclusion or why it is requesting a 
certain item of information. The system answers 
by retracing and describing the deductive process 
that led to the current state. This degree of user- 
friendliness was essentially a by-product of the 
rule-based style of programming. 

Perceptron Perceptions 

The image to be sampled (in this 
case, the letter R) is projected 
onto a plane and digitised. 
‘Demons’ sample a small group 
of pixels (e.g. 4 at a time) and 
respond if the pattern they are 
programmed to recognise is 
present. Each demon’s response 
(either 0 or 1) is multiplied by a 
weighting factor, depending on 
its importance within the pattern 
as a whole, and the weighted 
responses are added together. 
This result is then compared to a 
threshold value. If itis greater 
than the threshold, then the 
system recognises the original 
shape; otherwise it does not. 
The threshold and demon 
weightings can be adjusted 
when training the Perceptron to 
recognise a particular shape 


Finally, and crucially, Mycin works. It does 
what a human requires years of training for. In 
fact, Mycin is used more in teaching than in 
diagnosing, but the point is that large 
corporations, governments and the media are all 
growing interested. It is early yet but corporate 
America has scented the sweet smell of profits. AI 
is losing its innocence. 


THE STATE OF THE ART 

This brings us up to the 1980s. Expert systems are 
in fashion and their ‘active ingredient’ is 
knowledge — for the scope and quality of its 
knowledge base determines the success of an 
expert system. But knowledge is not something 
you can squeeze into a computer program like 
toothpaste from a tube. Codifying a human 
expert’s skill can be a long and labour-intensive 
process. So while the world is marvelling over 
expert systems, artificial intelligence has moved 
on to concentrate on the problem of machine 
learning — which is one way of acquiring 
knowledge automatically. AI has always been a 


moving target, and at the centre of that target nght 
now is a program called Eurisko. 

Eurisko is a discovery program that extends and 
improves its own body of heuristic rules 
automatically, by induction. Apart from winning 
the Trillion Credit Squadron naval wargame three 
years in succession (despite rule changes intended 
to prevent it) Eurisko has also been applied to 
practical problems. One result was the invention 
of a novel 3-dimensional logic gate in the field of 
integrated-circuit design. There can be little doubt 
that systems like Eurisko represent the leading 
edge of AI research. And since AI is itself the 
leading edge of computing science, this 1s the place 
to look for a peek into the future of computing. 

Ironically enough, by concentrating once again 
on learning, AI has returned to its roots, because 


learning was seen as the key problem in the early 
cybernetic days. 

This series of articles represents a practical DIY 
guide to artificial intelligence. Over this time we 
will be covering the major problem areas of Al 
(such as vision and natural language processing) as 
well as the techniques that have been developed to 
deal with them. As usual, all of the example 
programs will be presented in Basic, and the BBC 
Micro, Commodore 64 and the Sinclair Spectrum 
will be represented in our Basic Flavours boxes. 

Although the well-equipped AI investigator 
may have a room full of machines running from 
LISP, we can only expect to be using a home micro 
with a BASIc interpreter. Nevertheless, we hope to 
illustrate some of the key AI techniques that can be 
applied to your machine — it is, after all, as 
powerful as a mainframe of twenty years ago. You 
needn't worry about not having access to Lisp or 
PROLOG, which are the major AI programming 
languages, because once you understand the 
methods involved, you will be able to implement 
them in any language. 
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0 When shopping around fora 
database manager, what are the major 
points | should keep in mind? 


When using a word processor, the 
time taken to search files or to move 
blocks of characters around (equivalent to 
sorting) is an irritating overhead. However, 
once performed, these activities are not 
usually needed again. The ‘search and sort’ 
overhead is therefore a relatively small 
percentage of the total program running 
time. It is data entry (typing.in the text) and 
printing that tend to take up most of the time. 
This situation is reversed, however, in the 
case of DBMs. The records, generally 
Speaking, are in effect very small 
‘documents that require little time to type in. 
sorting the records and searching them to 
extract those required are what a DBM 
spends most of its time doing when itis being 
used. If the data file is larger than what can fit 
completely in RAM, as is highly likely, 
extensive reading from and writing to mass 
storage will be required. The shortcomings of 
Slow and ‘sequential’ cassette storage will 
then become highly evident. Unless your 
database is limited in size and importance — 
a Catalogue of a small record collection, for 
instance — you will really have to consider 
investing in a disk-based system. 

Most databases are used in a business 
context of one sort or another, where the 
‘time is money’ philosophy applies. In other 
words, if you really need a DBM, you will 
require a disk-based system, although 
Archive on the QL’s microdrives is an 
adequate alternative in the interim. 


Q How many records should my DBM be 
capable of handling, and is it 
worthwhile having one with more records 
than I really need? 


Your database application may or 

may not require the ability to handle a 
large number of records. But try to imagine 
the largest number of records you would ever 
need, double it, and then look for a DBM that 
can handle that many. If your database is for 
stock control and inventory, and you do not 
carry many parts, you may not need a DBM 
that can handle 32,000 records. Butif you are 


_ using the DBM to catalogue a library, 32,000 
| records might not be enough. DBMs able to 
| handle more than 64,000 records are fairly 
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| able to program the DBM myself, without it? | 


rare and, anyway, would normally need 
powerful computers with very large hard disk 
memories. 


0 if I’m not certain about the number 
of fields | will require, how can | judge 
what DBM to buy? 


Most DBMs allow only a certain 

number of fields to be contained in any 
record. It is often difficult to anticipate how 
many fields will actually be required. Most 
allow more than enough fields, though fields 
are often limited in length to one line, which 
can make multi-line text fields awkward to 
use. A more common limitation than the 
number of fields allowed is the number of 
allowable characters per record. A typical 
figure might be 1,020 characters per record 
enabling the user to choose how to divide this 
allocation between the number of fields and 
the character length of each field. In any 
event, make sure that the maximum number 
of characters per field and fields per record 
will allow you to build the records you want. 


Are key fields an important aspect 
and, if so, how many will | need? 


A key field is one that can be 

searched or otherwise manipulated by 
the DBM. If afield is not designated as being 
key, it cannot be used to extract records. Here 
are a couple of examples of how typical key 
fields might be used: 


SEARCH SUPPLIER FOR ‘Timson 
Engineering Ltd’ 


The key field SUPPLIER in every record is 
being searched for a match with the specified 
character string, or: 


SEARCH PRICE >= 45.50 


The key field PRICE is being searched for 
figures greater than or equal to 45.50.Some 
DBMs allow all, or any number of fields 
to be specified as key fields when the record 
‘skeleton’ is created; others allow only a 
certain maximum number of fields to be so 
designated. As a rule of thumb, the more 
fields that can be designated as key fields the 
better. 


Will | be restricted to the language 
supplied with my computer or willl be 
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some DBMs_ include a_ built-in 

programming language allowing 
sophisticated sequences of activities to be 
performed automatically. In a business 
environment, these languages enable 
programs to be written that can save a great 
deal of work on the operator’s part. 

Two outstanding examples are dBase II 
and Archive. If your database requirements 
will have set ways of dealing with data, such 
as ‘print out all today’s sales followed by alist 
of all parts in stock and alist of all parts below 
the “re-order” threshold’, then a DBM with a 
built-in programming language is something 
to look for. If, on the other hand, you do not 
know from day to day just how the database 
will be used, then the usual ‘query language’ 
commands will suffice. 


1] What should | be looking for if the 
records | will be creating need to be 
related to data other than what’s in those 
records? 


The simpler database managers can | 


work on only one file of records at atime. 
For many applications, this is perfectly 
adequate. Far more useful, however, is the 
ability of a DBM to work on two or more files 
simultaneously. The classic situation where 
this is helpful is a stock control database in 
which each part can have more than one 
supplier. We would have one database file for 
‘parts and another separate file for 
‘suppliers. Itis extremely useful, if you make 
a query on one file, to be able to make queries 
on other, related files. 
To illustrate the point, let’s suppose we ran 


an antique shop and kept a ‘stock’ database 


file on what we had in stock. We might also 
keep a record of our suppliers in which we 
noted what they have available but have not 
yet bought. Our records for DESCRIPTION 
‘FURNITURE, SWEDISH’ might have no 
entries, but a cross-reference to your 
SUPPLIERS file might reveal KURT 
JAKOBSEN ANTIK, GAMLA STAN 56, 
STOCKHOLM. His record might reveal: 


DESCRIPTION: SOFA 
MAKER: ANDERSEN 
DATE: 1824 

PRICE SKR: 12000 
DESCRIPTION: SOFA 
MAKER: GRIMM 
DATE: 1874 


sencneorennnccennnnncnntinnnnnmnirnnrenmenrensenrteete 
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PRICE SKR: 


9800 


and countless other entries of items 
available. In other words, when a single file 
will not suffice, referencing to one or more 
other files may be what is needed. 7 

Theoretically, it is always possible to have 
enough spare fields within any particular file 
to allow for any additional information that 
may be required. In practice, this may not be 
possible. Suppose Mr Jakobsen telephones 
us to say that he has just received two lovely 
19th century sofas today that we might be 
interested in. Itis obviously very much easier 
to enter the details under JAKOBSEN’s record 
than to go through all the DESCRIPTION 
fields in the STOCK file and enter Mr. 
Jakobsen’s new acuisitions. 

To simplify, whenever you have a situation 
where there’s more than a one-to-one 
relationship between parts of a record in a 
database to other data, a multi-fileDBMis the 
one primarily to consider. 


Dependent and calculated fields 
seem rather useful. How can they help 
me with the work I'll be doing on the DBM? 


A refinement offered by some DBMs is 
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known as dependent fields. These are | 
fields that appear (during data entry and 
subsequently) only if they are needed. For 
example, a database that has a field NO. OF | 
CHILDREN might display no extrafieldsifthe | 
entry is 0, but NAME OF FIRST CHILD, AGE 


GENUINE | 2. | 
ANTIQUES 





OF FIRST CHILD and so on if the entry was 1, 
and so on. 

Dependent fields are, however, just a 
refinement and seldom, if ever, essential. 
Some DBMs also allow the data in certain 
fields to be used as arguments in arithmetical 
operations almost 
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like a= mini- | 


spreadsheet. Such systems would allow, for | 
example, the number of items in a NO. IN | 
STOCK field to be multiplied by the figure in 
the PRICE field in each record, as well as © 
summing up alltheresults forthe recordsina 
file to give a total value in stock result. This | 
kind of facility almost always goes with a | 


built-in programming language and can be | | 
| the best software always includes the facility | 
_ for placing limits on the type of data | 
_ allowable; on the other hand, over-rigid 


extremely useful. 


Qu are the differences between 
menu-driven and command-driven 
DB\Kis, and is one more suitable than the 
other? 


Amenu-driven database manager is one | 

that presents options on the screen at © 
each stage of activity. A command-driven — 
program expects you to learn its vocabulary | 
| of commands (often involving a Control key- 
| plus-letter combination of key presses) to | 
| it work. Although menu-driven | 
_ programs tend to be easier for the beginner, 
_ command-driven ones are usually quicker to | 
use once you have learnt the commands. | 
_ Provided that the commands are chosen | 
| logically (S for SEARCH, P for PRINT and so | 


make 
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on) command-driven software is likely to be 
easier to use in the long run. 





What sorts of facilities are built into 
DBMs that will check for errors and 
prevent erroneous entries? 





A well designed DBM should allow | 


you to specify what type of datamay be | 


entered into any field, thereby helping to | 
reduce erroneous entries. For example, 31/ | 
02/85 should be automatically rejected, as _ 


should an entry such as: 
PRICE: Oil flow meter mounting flange 


checking can sometimes be a nuisance. In | 
| any event, check what data validation | 
_ facilities are offered. 


All that being said, what DBM should 
I buy? 


Recommending a best buy for a | 


DBM is all but impossible; you have to — 
know what you will use it for before you can | 
buy one. However, we would recommend for 
all but the least sophisticated applications, a | 
DBM that is disk-based, has multi-file | 
access and has a built-in programming | 
language in addition to the normal query | 


language. 
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THE CURVATURE 
~ OF THE SPLINE 


Smoothing Out The Rough Edges 
If four crucial positions for the 
arm are saved when using the 
arm programmer program then, 
when replaying the sequence, the 
arm will move linearly between 
the points (shown by the dotted 
line). However, it is possible to 
calculate a number of 
intermediate points that 
generate a smooth curve 

(known as a ‘cubic spline’) — 
passing through the four saved 
positions. The co-ordinates of 
points on this curve can be used 
to make the arm sweep more 
smoothly through its 
programmed path 
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In this 0 
robot arm series, we review the software 
already developed for the arm. We also 
consider further developments that might 
be made to improve the smoothness of the 
arm’s movements by using a mathematical 
process to produce ‘cubic splines’. 






























































The moveservo routine developed as part of the 
arm controlling software (see pages 1175 and 
1195) reduces the jerkiness inherent in the arm as 
it moves from one position to another. The motors 
receive their angular information from a series of 
locations in memory, beginning at ANGLE. 


To improve the smoothness of the arm’s: 


movement, as the motors take up new positions in 
response to changes in the ANGLE locations, the 
values are not POKEd directly into these locations, 
but into a group of corresponding locations 


CUBIC SPLINE CURVE 


LINEAR PATH BETWEEN POINTS 
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labelled NEWPOS. The moveservo routine, when 
called, compares the values in the corresponding 
locations in ANGLE and NEWPOS and lowers or 
increases ANGLE as appropriate, one unit at a time. 
It repeats the process until the values in NEWPOS 
and ANGLE are the same. | 

By POKEing angle values from Basic into 
NEWPOS rather than ANGLE, we effectively buffer 
the motors against sudden, large changes in the 
angle. The task of moving a cotton reel from a 
known position into a cup is now relatively easy. 
The arm can be taken through the moves slowly 
using the appropriate keys on the keyboard, and 
key positions on the curve can be saved in an array. 
The information in the array can then be replayed 
at any speed by inserting a delay factor in 
moveservo and stepping through the array. 


AVOIDING DISCONTINUITY 


Further improvements are possible. To a first 
approximation, all the angular movements are 
proportional to the changes in NEWPOS, 
depending on how far from the pivot each linkage 
is fastened compared with the radius of the motor 
drive lever. The moveservo routine therefore moves 
each part of the arm smoothly and with constant 
angular velocity (the degrees of rotation per 
second) to its new position. Whenever it reaches a 
new position, however, the arm may have to 
suddenly change direction as it starts to make its 
way towards the next saved position in the 
sequence; in other words, it hits a discontinuity. 

This problem is not so bad as the original 
problem of making sudden large changes of angle. 
However, it can be avoided by saving a number of 
intermediate points rather than introducing 
radical changes between one saved position and 
the next. 

As is often the case, the arm’s movement can be 
further improved by using more sophisticated 
software, but there is a trade-off between speed 
and space. If the cotton reel is moved by specifying 
only four separate positions — the first when 
picking up the reel, the second when lifting the reel 
up, the third when taking up a position above the 
cup, and the fourth when the reel is lowered into 
the cup — little memory is used, but the 
discontinuities are severe. 

One way of reducing them is to specify, say, 60 
intermediate positions, in which case the 
movement would be comparatively fluid and 
elegant. But doing this would take up substantially 
more memory to store the data, to say nothing of 
the time to input all the positions manually. 

The alternative requires taking time to calculate 
a number of intermediate values, and then 
combining the positions that you have saved 
manually with the connecting positions that you 
calculate. The question now presents itself of how 
these intermediate values will be calculated. 

If we consider four specified points, then a piece 
of sprung steel could be bent to touch any three of 
the four points at any one time, particularly if the 
two end points are in convenient positions. The 
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mathematical equivalent of bending a piece of 
sprung steel is to interpolate intermediate points 
using a ‘cubic spline’ (so-called because it includes 
values raised to the power three). 

The program given here demonstrates how 























intermediate points that fit a cubic curve can be 
interpolated from the four points specified. The — 


resulting movement between the points will be a — 
smooth | 
improvement over linear interpolation. To use this 
method for a four motor system, such as our _ 
Workshop robot arm, a separ: 
would need to be interpolated mathematically for 
each motor. 


1020 REM 


Se 


sweeping curve; a considerable 


tte cubic spline 


ee BBC CUBIC “SPLINES ~~ 
chehehohelohalohehehehehetehehehehetehelolololl 


a 16 1x(@e 40 IX¢S)= 5a — 
1¥(3)= 12 :¥¢€4)=12 1Y¥(5)=2 
early extend the ends 

€X€3)-XC2))_ 
—(YC3)-¥C2)) 
oo 


Ma FUNCTION | 
E X*26, Y*x20 


36 FE KKB) THEN DRAW X#20 , Y*20 


NEXT 


a END 


Meee AKIMA “FUNCTION HERE 
1 AK IMA | RUCKDESCHEL BOOK 2 


TABLE RAN 


—. SET AKIMA **x% 
CALCUALATE AKIMA COEFS 


9 IF AtB=@ THEN 2¢(1)= (MCT+2) 461419972. 


3@ NEXT I 


RETURN 
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Commodore 64: 


Ae 
26 


REM 


EKER REA KR AEE RA REE 


REM ** CBM CUBIC SPLINES ** 
REM 


FELRAE RARER EERE ANAS EH 


56 U=7: :FOR I=1 TO 25:DW$=DW$+CHRS<¢17) :NEXT 


DIM X¢CV+3), .¥<V43) MCU+3) ,2¢U43) 


@ XC 2)= 20:x(3)= ‘S:XCd)= 20:X(5)= 25 


Y¥C2Q.=2:Y(Z3d=12:Y(4)=12:7¢5)=2 


>@ REM ** LINEARLY EXTEND» THE ENDS *% 


—XC19 =x 0 2)-(% 03) -K02)) 


YCLISYC2)-CYC3)-Y¥(2))_ 
XC60=K(5)+¢K(5)-KC 49) 
XC 7I=KC6) + 0X06) -X05)) 
4@ YC 6)=Y¥(5)+0¥65)-¥04)) 
YO 7EYC6)40YC 60-105) 9 


| PRINTCHRS(147) 


PRINT" DEMONSTRATION OF A ROUTINE WHICH" 
PRINT" INCORPORATES A CUBIC SPLINE" 


@ PRINT" JOINING KNOTS" 


GOSUB 3000:REM DRAW KNOTS 


| GOSUB 1000: REM SET AKIMA 
235 J=2 
240 FOR wex(2) TO XS) 
_ GOSUB2000:REM AKIMA FUNCTION 


255 IF X=xX(J) THEN J=J+1:GOTO27@:REM DON’T DRAW 
268 N=X:M=Y: GOSUB5800: PRINT CHRS¢ 46) 

'@ NEXT 
ET A$:1F eo * THEN 280 


46 I= 
@ I= 


G EM HERK SET AKIMA KHER 
41@ REM CALC AKIMA COEFS 
FOR I=1 TO V-1i 


@ MC1+2)= SCV CT#LD-YCT) (XCF XCD) 


Mcu4D)= =2eM(V41)—MCV) 


60 MCV4+3)=2eMCU+2) -MCU 41) 
@76 MC 2)=2*M( 3) -M¢( 4) 

SG MC 1)= 

@ FOR I=1 TOV 


=2eM(2)-M(3)_ 


@ A=ABS(M(14+3)-—MCI+2)) 
) BEABS(MCI+1)-MC1)) 
3 IF A+B<>@ THEN Z¢(1)= =(AKMC1+19+BEM( 142) /(A4B) 


3@ IF A+B=@ THEN 2¢1)= AMC 142) +Mi 1419972 


a NEXT I 


50 RETURN 


1 REM *xxx aKIMa FUNCTION HREX 
@ N=1 
TF xexCL1) OR OX => THEN RETURN: REM CHECK RANGE 


I= 


@ 
Iti:IF X= =xX¢ 1) THEN 2040 
eI-1 


REM BEGIN INTERPOLATION 


7@ B=xXCI+1)-X¢1) 


ARHx- ACT) 
YaY C1) +21) #A+(3"MC1+2) ~e2ec(l)-2¢1+1)) *AxA/B 
Yyevrceclotecltto- —~2¥MC1+2)) #AxAxA/ (CB*B) 


19 RETURN 
1@ REM HERE 8 KNOTS **** 
@ FOR I=2 TO 


3428 N=X¢1) iMevOD: GOSUB 5000:PRINT CHRE (215) 
3@ NEXT I 
RETURN 
REM RRKE POSITION AT NM shahaledl 
| PRINT CHRS(19);__ 
PRINT TABCN); LEFTS(DW$, 25- M); 
RETURN 
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All Taped Up 

Here we see the ASCII alphabet 
as represented on paper tape. 
The bits are arranged from left to 


right in descending order, with 


the paper feed line (the smaller 
holes) between bits three and 
four. Bits 6,7 and 8 are used to 
provide shift and control 
functions. Bit 8 is the parity line, 
which provides a check whether 


the code transmitted has been 


KEVIN JONES 


received correctly 


PAPER TAPE 


Now largely obsolete, paper tape was for many 
years the sole method of inputting programs and 
data into a computer. The system worked rather 
like a telex or teleprinter machine (from where, in 
fact, the system originated). A typist would enter 
the program from a keyboard that punched holes 
into a long strip of paper held on a continuous reel. 
Once completed, the tape would be fed through a 
reading device that mechanically read the paper 
and converted the perforated patterns into 
electronic ASCII code. So, instead of programs, 
operating systems and languages were stored on 
paper tape that had to be fed through the 
computer to ‘boot’ the system. 

The tape (about 2cm wide) can accommodate 
five, seven or eight positions (or tracks) on which 
the holes could be punched. Down the centre of 
the tape is a line of smaller holes, originally used as 
the mechanism by which paper was fed into the 
reader. Later, paper tape machines used faster 
methods of feeding paper into the machine; 
however, the line of feed holes has been retained as 
many of the synchronisation processes used by the 
readers have come to depend on it. Modern paper 
tape readers use much faster optical reading 
methods. This means that the paper used on 
modern reels must not be transparent to the 
optical readers. 

Although there are no home computers that 
incorporate paper tape, modern micros still retain 
a legacy from the days of computer tape; the eight- 
bit character set used by paper tape still forms the 
basis of the electronic ASCII codes used by 
microcomputers. There are also many older 
mainframes that use paper tape for a number of 
applications, although — like microcomputers — 
there are no facilities to accommodate paper tape 
being used on the modern machines. 
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PARALLEL INPUT/OUTPUT 


Parallel input/output (PIO) is a feature of some 
interfaces between a computer and its associated 
peripherals. Data is transmitted to the peripheral 
and vice versa in ‘parallel’ — namely, for an eight- 
bit microcomputer, each of the bits within a byte 
will be transmitted simultaneously down eight 
separate lines of the interface. Similarly, the 
peripheral will transmit eight-bit data patterns 
back to the computer in the same way, although it 
should be noted that these will not necessarily be 
sent along the same lines. 

The advantage of this system is that the speed of 
transmission is much faster than if information is 
sent and received down a single line — known as 
‘serial input/output’ (SIO). The disadvantage of 
parallel methods of transmission is the extra cost 
involved. Instead of a single cable being built into 
the system, eight separate lines must be fitted. 

Although there are few functions in which 
parallel input/output is of vital importance, the 
system tends to be used when transmission speed 
is important. The most common use of PIO on 
home computers can be seen in the expansion or 
cartridge bus. Here, the computer will be 
communicating with another eight-bit chip and, to 
acquire the maximum efficiency, it is very 
important that data be transferred between them 
as quickly as possible. Another common use of the 
parallel input/output system is evident in a 
parallel printer connection, in which each 
character to be printed is sent as an eight-bit 
ASCII code. If the data is sent in a serial fashion, 
the printer will have to wait until all the bits have 
arrived before it can print the character, which will 
slow the print rate. However, in a PIO system, all 
the bits of the character arrive together and can be 
stored in the printer’s buffer, allowing the printing 
speed to be increased. 


PARALLEL PROCESSING 


In its strictest sense, parallel processing refers to 
several processes being executed in parallel. The 
implication of this is that the computer should 
have more than one processor, as a single 
processor can only execute one instruction at a 
time, regardless of its speed. 

However, the term parallel processing — 
especially in advertisements for computers — is 
now used to imply the ability of the computer to 
work on several different programs at once. For 
example, a user could be running one program to 
calculate business accounts while the computer is 
running a second program at the same time, 
feeding information to a printer. Of course, these 
programs are not being executed by the processor 
simultaneously. What is happening is that the 
computer will run the accounts program until it 
recieves a message from the printer that the buffer 
is empty. The processor will then interrupt the 
accounts program, refill the buffer and then 
continue with the accounts. Providing the action is 
fast enough, you will not notice any interruption 
and the programs will appear to run in parallel. 
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Asa portable, self-contained unit with two 
disk drives, a built-in auto-dial modem and 
BBC sasic, the Wren Executive computer is 
certainly not lacking in capabilities. But a 
price of under £1,000 and an eight-bit 
processor place it between the business and 


home micro markets. We examine its 
chances of finding a widespread popularity. 





The Wren Executive computer has already hada 
chequered history. The machine, built by Thorn 
EMI, was originally marketed by Prism. When 
that company went into liquidation at the 
beginning of 1985, it seemed that the Wren would 
be yet another victim of the turbulent computer 
industry. Recently, however, distribution of the 
computer was taken over by Opus Supplies, which 
is planning to relaunch the machine. In this article 
we assess the machine’s chances of acquiring a 
niche in the highly competitive business market. 

The Wren Executive is designed to be a 
‘portable’ machine. That is to say, it is a self- 
contained package consisting of computer, 
monitor and disk drives. Although the machine 
appears at first sight to be encased in painted 
metal, the casing is in fact made almost entirely of 
textured plastic, with only the base and the 
keyboard surrounds constructed of metal. At the 
rear of the machine is a carrying handle. Like 
many portable machines, the computer is perhaps 
a little too heavy for long periods of carrying, and 
is perhaps better suited as a desk top computer 
that can be transported from one work area to 
another. 

The keyboard has the usual QWERTY 
configuration, with the only difference being that 
the * and # symbols have their own keys. To the 
left of the typewriter keys are five programmable 
function keys, which when used in conjunction 
with either the Control or Shift keys, can provide 
up to 15 different functions. These keys have 
different purposes depending on which 
application is being used, but they are 
predominantly used for single keyword entries of 
CP/M commands such as PIP and RENAME. On 
the opposite side of the keyboard are the four 
cursor keys and a Home key to return the cursor to 
the top left-hand corner of the screen. 

The screen measures 150 by 105mm and is 
typical of monochrome monitors provided with 
business machines, with a text resolution of 80 by 
25 characters. The only noticeable difference is 
that the foreground colour is orange as opposed to 
the usual green. This makes for a bright and 
attractive display and should be suitable for long 


periods of work. To the right of the monitor screen 
are a pair of 5zin floppy disk drives. 

One problem with the screen is the design of the 
casing. The Wren sits fairly low on the desk with no 
legs provided to tilt the machine with the screen. 
The screen is embedded back into the casing with a 
40mm ledge projecting out above the screen. 
Although this has been angled, you may find that 
the ledge obscures the top of the screen if you are 
rather tall or usually sit close to the keyboard. This 
is not a serious difficulty, but it is slightly annoying. 

The Wren is well supplied with interfaces. 
There are a number of ports to allow the computer 
to be connected to a wide range of peripherals at 
the rear of the machine. And unlike many 
similarly priced business machines, the Wren has a 
built-in autodial modem. The Wren owner is 
therefore able to access all the major databases 
such as Prestel and Micronet without having to 
purchase any other equipment (although, of 
course, you will have to become a subscriber to 
one of the databases before they will allow you to 
log on). 

The Wren even comes with a cable to connect it 
to the telephone system, which slots into the 
British Telecom-standard 600-series socket on the 
rear of the computer. The communications 
software provided with the Wren allows a number 
of different telephone numbers to be stored that 
can be autodialled when required. 

Next to the communications socket is a pair of 
paddle ports that are provided to accommodate 
the fitting of external control devices, such as a 
mouse and joysticks. Beyond these is a 25-way D 
connector providing the interface for RS232C 








An Unusual Bird 

Distributed by Opus Supplies, 
the Wren Executive computer is 
an inexpensive portable 
machine, which has the unusual 
feature of running both BBC 
BASIC and the CP/M operating 
system. Other features include 
twin disk drives, monochrome 
monitor and a built-in modem 
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The Wren is fitted with a built- 
_ in monochrome screen thatis — 

brightandeasytoread = 


Direct communication with 
_othercomputers and other 
serial applications is provided 
Ahroughthissocket =—_st 
















Colour Monitor Socket 


_ Should the user wish to take - 


Eee advantage ofthe Wrens 
serial communications. RS232 sockets are | oe eae the computer 


normally used on business computers for external | hasanadditionalRGB 
modems. This is obviously not a requirement on Monitor port, which 11s to an 
the Wren and so will primarily be used for local | ei"! menior | 
area networks and serial printers. 

On the left of the RS232 port is a Winchester 
parallel interface into which a hard disk storage 
system can be fitted. ‘The addition of a Winchester 
disk system can add anything from 500 Kbytes to 
50 megabytes of additional storage to the system. 
There is also a Centronics-compatible parallel 
interface that provides the outlet for hard copy to 
be printed. Finally, on the far nght, is an RGB 
colour monitor socket. Between the printer and 
monitor interfaces is a tiny reset button that will 
provide a cold start to the system. 

The Wren is based around the familiar Z80B 
eight-bit processor. This is perhaps the computer’s 
greatest weakness. At a time when home micro 
manufacturers are frantically attempting to 
compete with each other in the development of 
16-bit micros, the Wren appears to look somewhat 












Sicakd ......, = 
Sound facilities are provided 
by the Wren's own on-board © 
‘Speaker 













Winchester interface _. 
A Winchester hard disk, which | 
__ greatly increases the storage - ~—SEe 
_and retrieval capacity of the _RAMChips ts 
__ computer, can be plugged ____ Despite having only an eight- 
_ into this parallel interface bit processor, the Wren is able 
to address up to 400 Kbytes of 
RAM through the process of - 
_berkswichng = ~=~—ShSeseF 
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Disk Drives 
_The computer comes | 


Lo equipped with twin Sn 


__ floppy disk drives to take full 
advantage of the CP/M ee 
| ay ee _ 


| canien Handle. 
: Despite its awkward - 


"appearance, the Wren is quite 


easy to Carry and is easier on 
_thehandthanmanyother 
Tnarse computers on 
the ee 


Printer Port 
A Centronics standard parallel 


interface port allows a printer 


_to be used with the computer 


_ Paddle Ports 

_ The computer can be 
_controlledfromexternal ~~ 
_ devices such as paddles and 
lightpens via these interfaces 


Modem 

Unlike many other business _ 
computers, which merely _ 
have the facilitytoenablea 


modem to be fitted, the Wren 


__alreadyhasa communications 
Cap epny on board 





antiquated in its processing. Although reasonably 
fast by eight-bit standards, it cannot be compared 
with the speed of 16-bit micros such as the IBM PC 
or the Apple Macintosh. 

As the Wren is based around the Z80 processor, 
it was natural that the designers chose to use 
CP/M as the operating system. The trouble here is 
that by recent standards CP/M is a rather 
unfriendly operating system despite its power. 
The designers have alleviated this problem by 
incorporating a menu-driven procedure into the 
operating system allowing you to choose an 
application by means of a cursor and pressing 
RETURN. The system will then prompt you to insert 
the appropriate disk and will run the application 
automatically. Thus many users will find that they 
have no need to use CP/M directly as almost 
everything the average business user needs is 
provided within the menu. 

The applications disks bundled with the 
computer are the CP/M system disk, Perfect 
Writer (a word processor), Executive Desktop (a 
package to keep time, dates, diary and 
appointments), the Perfect Filer database, the 
Perfect Calc spreadsheet and a disk containing the 
communications software and BASIC. 

The BASIC used in programming the Wren 
surprisingly turns out to be standard BBC Basic. 
Although the machine has almost a full 
implementation of the language, being based 
around a Z80 processor instead of a 6502 has led 
to some differences, mostly in the input/output 
routines. The implementation of the language also 
appears to have generated some bugs. For 
example, in modes 0 and 1, the cursor disappears 
from view. The Delete key does not work in these 
modes, and backtracking with the cursor and 
attempting to overwrite merely results in the new 
character being superimposed onto the old one. 
This prevents any serious programming in these 
modes, although ie others seem to work perfectly 
well. 

Ultimately, the future success of the Wren 
Executive depends on whether it can find itself a 
suitable niche in the market. With a built-in 
modem, CP/M operating system and BBC Basic 


at under £1,000, the Wren seemed exceptional 


value when it was launched in the early part of 
1984. Since then the sales potential of eight-bit 
business machines, even at the low end of the 
market, has been rapidly diminishing. Yet the 
machine is still far too expensive to make a serious 
attack on the home market. This is especially true 
now that Amstrad has implemented CP/M in its 
range of home micros. 

This leaves the educational market in which, it 
seems, the Wren may make its biggest impact. The 
fact that the machine uses BBC basic, which is 
widely used in schools, coupled with a built-in 
modem to take advantage of the various schools 
databases that are becoming available, could 
make the machine attractive to educational 
establishments attempting to get the maximum 
value for their money. 
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quality of the food, and create more unrest! 
Because sighting an albatross is a good omen 

(see page 1172), the crew will be relatively 

contented; but if they kill it, which brings uae luck, 

a mutiny will become more I 
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SIMULATION GAME/PROGRAMMING PROJECTS 





to Y for the remainder of the voyage. HS is tested by : =, nee ee 

| the mutiny routine, adding 30 to MF if HS holds Y. M t FE t ight factors contribute to 

| i | : : iL feelings of unrest among the 

| Line 7215 checks HS and increments MF if U 1 ny ale OF S crew and are used to generate a 

| Seca mutiny factor, MF, for each week | 
of the voyage. If the eight factors 
combine to make the mutiny 
factor greater then 100, then a 
mutiny occurs and the ship's 
captain is set adrift in an open 
boat 













tine then checks whether there is 








oe = ee sie 
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Ee an Cae : 











equal to 0, si snifying t there is nd cook on board, 
/ and you will be told shaedte mutiny was aresultot 
__ the ee of ae expertise. Line 35 












have been killed and that the insurgents have 
seized control of the ship and are sailing away. 
Because the mutiny signifies the end of the game, 
it is important, if you are to be successful, to take 
good care of your crew. 


IAN McKINNELL 
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In this penultimate instalment it in our series 
on PASCAL, we break away from _ the 
limitations thus far imposed on our files by 
implementing dynamic allocation. We look 
at concepts such as de-allocation, pointers, 
heaps and linked structures, which provide 
us with the freedom necessary to process 
files of unspecified size. 





PASCAL provides two standard procedures (ne new 
and dispose) and a special data type, which 
together offer extraordinary power and flexibility 
in the “dynamic allocation’ and de-allocation of 
memory. A ‘pointer’ type is simply a variable 
which, instead of containing a data value.such as 
an integer, is a ‘pointer to’ an integer or any other 
data object, structured or otherwise. The notation 
used is similar to that when we denote a file look- 
ahead buffer (which effectively points to the next 
record on the file, though in a totally different 
way). A pointer type is defined by preceding the 
identifier (of the data type we wish to point to) 
with an up-arrow: 


TYPE 
LongArray =ARRAY 1..100 OF real: 
indirect = tLongArray; 


The same alternative symbol (‘@’) is supported by 
all ISO .PAscAL compilers. The type definition 
reserves a single memory location that will be used 
to hold the address of a large array only when it 
should be created with the procedure new. In the 
meantime, the pointer’s value is undefined, just as 
any other variable would be, so that: 


VAR 
address : indirect: 
number : integer; 


would reserve space for one machine address (16 
bits on an eight-bit micro) and one integer, with 
neither being initialised to any particular value. 

Just as we might want to initialise the integer to 
zero before use, the pointer may be specifically 
assigned the special value NIL. This is a reserved 
word in PASCAL, merely signifying that the pointer 
doesn’t point to anywhere useful, and is the 
equivalent of the numeric value zero (signifying 
the absence of any actual number). The two 
variables in the example could therefore be 
assigned thus: 


address := NIL 
number :=0; 


As NIL is a constant value belonging to a generic 
type, it would perhaps be preferable to define it as 
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an identifier in a language. Wirth obviously 
changed his mind on this aspect because in 
MODULA-2 the same word is in fact a predefined 
identifier, not a reserved word. In order to 
demonstrate the use of new and dispose we'll just 
use integers for simplicity. 

When a pointer variable is needed to point to a 
new item, we call the pascaL procedure new, which 
allocates space for the item and puts its address 
into the pointer. The data item is then referred to 
by ‘de-referencing’ the pointer, p, with the 
notation pt. Notice that the up-arrow now follows 
the pointer identifier, as with file— buffer notation, 
and may be thought of as ‘the item that p is 
pointing to’. Needless to say, it is an error to de- 
reference a pointer that is undefined or one that 
points nowhere. 


DYNAMIC DE-ALLOCATION 

When we have finished with any data created by 
newing pointers, PASCAL’s dispose procedure may 
be called. This is the opposite of new, in that the 
memory is returned to the dynamic pool and the 
pointer value becomes undefined. The program 
TwoPlusTwo illustrates these points: 


PROGRAM TwoPlusTwo (output); 


TYPE 
pointer 


VAR 


= t integer; 


pi, 
p2 : pointer; 
answer _ : integer; 


BEGIN 
new (p1); 
pl t :=2; 
new (p2), 
po pit; 
answer := p1 a D2 t; 
WriteLn (p1 t,‘+’, p2 f, 
dispose (p1); 
dispose (p2); 
END. 


This extremely peculiar method of adding two and 
two illustrates two important points: 


‘=’, answer ): 


@ Dynamic variables are anonymous — there is no 
variable identifier (like N) that holds the value 2 
anywhere in the program; these items are 
referred to indirectly. 


@ After the second dispose the only memory used 
is the single integer (answer); all the dynamic 
data no longer exists. 


If you have followed our Assembly language 
series, you will have already appreciated that the 
indirection implicit in the use of pointers is 
analogous to indirect addressing at machine level. 
There are, however, big differences in the use of 
indirection in such a high-level language as PASCAL. 
First, we never know (or need to know) what the 
actual addresses are. The only ‘absolute address’ 
available to the PASCAL programmer is NIL. 

















Also, we are free to use, reclaim and 
subsequently re-use any of the memory available 
without the need to organise ‘garbage collection’ 


ourselves. The memory management is taken care 


of by PASCAL, and the only information we may 
require is how much memory is left. This is 
obtained by the non-standard function MemAvail 
or, in some implementations such as Acorn ISO 
PASCAL, the function Free. This returns the number 
of bytes remaining in memory. 

Another useful extension is the function SizeOf 
( Typeldentifier ) which returns the size in bytes of 
any particular type. The user RAM is divided into 
two internal structures — the stack and the ‘heap’. 

The stack is used for procedure and function 
calls, storing their return addresses, local data and 
returned values. All dynamic data is allocated on 
the heap. This operates in a similar way to the stack 
except that it is not a LIFO (Last In First Out, see 
page 948) data structure and the heap starts at the 
opposite end of user memory, growing towards the 
stack. With over-ambitious use of new and/or 
recursion, a ‘stack-heap collision’ could occur, but 
this can be avoided with: 


IF SizeOf (thing) > PerCent *~ MemAvail THEN . . 


where thing is the type identifier of the data about 
to be created and PerCent is a value in the region of 
0.7, allowing 30 per cent of the memory for the 
stack and 70 per cent for the heap. If, as is usually 
the case, MemAvail/Free operates as a ‘high water 
mark’, an additional ‘garbage count’ of disposed 
items may be maintained. 


LINKED STRUCTURES 


The real power of pointers is realised when we 
create linked structures such as trees, singly- or 
doubly-linked lists, circular structures and so on. If 
we consider the problem of character strings, we 
can, and often do, use an array of some fixed size, 
say 80 characters. If we have an array of strings to 


store a document, for instance, each blank line will | 


still take up 80 bytes of storage. Equally, we can’t 
represent lines longer than 80 characters — the 
whole data structure is simply too rigid. 

A PASCAL compiler has to distinguish between 
identifiers of any length. So, for example, how can 
we accurately model this real-world characteristic 
of varying size? The natural structure to use would 
be a record containing two fields : a field for each 
data item (chars in this case) and a second pointer 
field which points to the next record, if any, in the 
list. | 


TYPE 
string = tcharacter; 
character = RECORD 
ch thar 
next : string 
END; 
VAR 
line : string; 
BEGIN 
line := NIL; 


etc. 





An empty string is represented simply by assigning : 


the value NIL to the string. Any other sequence of 
characters will require a new record to contain 
each char and another pointer to point to the next 
record. The last record will have its next field 
initialised to NIL so that the end of the string may be 
detected. A procedure to print the string would 
then be: 


WHILE line <>NIL DO 
BEGIN 
write (line t. ch): 
line := line t. next 
END 


Notice that the data structure is a recursive one as 
it is defined in terms of itself. The pointer field 
cannot be given a type that has been fully defined, 
so a ‘forward’ reference is allowed. 


Circular List Program 


PROGRAM 
« 


Crete: Canim; outpu-e —):s 


Intent : TO insert records containing 
mixed data into a dynamically allocated 
circular list. Data is placed IN order 
OF a Key alphabetic field (Name? thus 
sorting alqorithms are unnecessary. 


StringLlength 
space 


Cardinal O-.. Maxtints 
StringSize 1... StringLengths 
string PACKED ARRAY C StringSize J] 


thing 
: strane: 
» »« other fields 3} 
debt : Cardinal 
END; ¢£ thing } 


pointer t node; 











LIZ DIXON 


PASCAL ofers the programmer 
the possibility of implementing 
‘linked lists’ — powerful data 
structures in which each item 


points to the next item on the 


list. Lists may be singly-linked 
(between successive items), 
doubly-linked (i.e. each element 
has pointers to both the next 
and last item in the list), or 
circular (where the last item in a 
singly-linked list points back to 
the first item in the list) 


The Circle Line 

This program allows you to 
insert records containing mixed 
data into a dynamically 
allocated circular list. Data is 
placed in order of a key 
alphabetic field (Name), and 
therefore sorting alforithms are. 
unnecessary 
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BEAT GENERATION 





fedacited sound 
generating chip — the Sound Interface 
Device (or SID chip for short) — is virtually 
a sound synthesiser in its own right. With 
sophisticated software it can even produce 
robotic-like speech. Here we describe ways 
of programming the SID chip from machine 
and suggest some applications. 


code, 





Sound ee the Contador 64 is normally 
channelled via the RF socket straight to the 
television. However, the sound output can also be 
connected, via the audio/video socket, to a hi-fi 
system for high quality playback or recording. In 
this instalment we look at the principles behind 
developing software that allows the Commodore 
64 to be set up as a drum machine. The quality of 
the application is remarkably improved using 
playback through a hi-fi system. 

In addition to the creation of complex sounds 
under software control, the SID chip can also 
accept input from an external audio signal. These 
signals may be generated by external electronic 
hardware (possibly containing other SID chips) or 
musical instruments such as electric guitars. This 
external signal can be mixed with the audio output 
of the SID chip and processed through its filters. 
However, we recommend caution when using I/O 
interfaces, since the incorrect connection of 
external lines can seriously damage the computer. 
We suggest that you consult the manufacturer’s 
manual for the correct pinouts and levels before 
attempting any external connections. 

To begin our discussion, we will consider how 
musical (periodic) sound can be made up from 
separate pure tones. We will then consider an 
alternative method of achieving the same result. 
By controlling the envelope of a given periodic 
note, we can introduce harmonics in different 
proportions. Effectively, this means we can create 
almost any periodic sound we like by altering a few 
simple ‘hooks’ on the envelope of an oscillator. 
These hooks — or controls — are also known as 
‘ADSR’ (attack, decay, sustain and release). 

Unfortunately, the Basic resident in the 
Commodore 64 is not well-equipped to handle 
sound. Programming sound on the computer is 
achieved by extensive use of PEEK and POKE 
commands. If we set the variable SID equal to 
54272 (the base address of the SID chip), then the 
addresses SID to $ID+28 will control the sound chip 
— and hence all sound on the Commodore 64. 

Finally, we give a machine code program to set 
up a three-voice, interrupt-driven drum machine. 
This wedge code can be controlled from BAsic, but 


will continue to play the drums independently of 
the BASIC program. This means that, with slight 
modifications, it can be used to provide 
background sound effects for any BASIC program. 


THE SOUND OF MUSIC 

Sound reaches our ears in the form of periodic 
vibrations of air pressure. The number of 
vibrations per second is called the ‘pitch’ — or 
‘frequency’ — of the sound. The lower limit of 
human hearing is around 15 cycles per second (or 
15 Hertz). A pure tone whose frequency is 100Hz 
sounds low to the ear. The A above middle C 1s 
standardised at 440Hz. If we double the frequency 
of a tone, then we raise its pitch by one octave. 
Normal human hearing spans a range of around 
10.5 octaves. The three-tone oscillators of the SID 
chip, however, span a range of around eight 
octaves — approximately 0 to 4,000Hz. 

Jean Fourier (1768-1830), a French physicist, 
first noticed that any periodic waveform can be 
considered to be composed of a fundamental pure 
tone amalgamated with tones of frequencies that 
are multiples of that fundamental tone. These 
tones are called ‘harmonics’. What gives a note or 
sound its distinguishing timbre are the proportions 
in which the various harmonics appear. 

A pure sine wave, which would correspond to a 
pure tone, is intrinsically an analogue signal, which 
means it is not an easy signal to produce on a 
digital device with voltage levels of either Ov or Sv. 
So, instead of generating pure frequencies and 
then mixing them to get the desired periodic 
sound, the approach adopted on home micros is 
different. : 

The SID chip is equipped with three voices, 
each of which can generate one of four different 
periodic waveforms. These are: 


1) Sawtooth Wave: Here, all the harmonics are 
present. The Nth harmonic has an intensity 
proportional to 1/N. 

2) Triangular Wave: This contains only odd 
harmonics. For an odd N, the Nth harmonic has an 
intensity proportional to 1/N7?. 

3) Rectangular Wave: A square wave has odd 
harmonics proportional to 1/N. By changing the 
‘pulse width’, we can get a variety of rectangular 
waves, each having its own harmonic mix. 

4) White Noise: A random mixture of frequencies, 
mostly used for special effects. 


The harmonic content of a sound can also be 
altered by filtering. The SID chip offers three kinds 
of filter: low-pass, band-pass and high-pass. For 
example, a low-pass filter will pass all frequencies 
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~ AMPLITUDE 


SUSTAIN | 
LEVEL | 


_ Addressed Envelopes 


The quality of a note — the 
group of characteristics that 
allow us to differentiate 
between, Say, a piano and a 


- violin — is dependent on the 


shape of the envelope. In the 
electronic synthesis of sounds 
the envelope is regarded as 
consisting of four distinct 
stages. These are known as 
attack, decay, sustain and 
release, or ADSR. The length of 
each stage of the ADSR 
envelope can be defined by 
POKEing values into the SID 


chip registers, allowing us to 


synthesise the sounds of 
different instruments on the 
Commodore 64 


below a preset value and attenuate all frequencies 
above the same value. By using these facilities and 
the ADSR envelope controls, almost any sound 
can be produced. _ 
Speech-generating programs can _ be 
constructed in a variety of ways. One way, offering 
reasonable quality and unlimited vocabulary, is 
described here. In this method, the basic building 
blocks of speech — phonemes — are coded into an 
array of ADSR values. There are about 52 
different phonemes in English, so encoding them 
is not a phenomenally difficult task. Then a 
machine code program is used to translate ASC 
(Commodore’s ASCII alternative) text into a 
stream of phoneme codes, which can then be sent 
to the SID chip using the ADSR array. This is not 
quite so easy, primarily because the rules that are 
used to translate text to phonemes are quite 
complicated. The quality of the final speech will 
depend very heavily on how good this part of the 
program is. This is a perfectly feasible project for 
the Commodore 64 and a number of commercial 
products are available that use this technique. 


ENVELOPE CONTROL 


ENVELOPE 
| SOUND WAVE 





The ADSR diagram given here shows the general 
shape of a musical note with an emphasis on those 
features that the SID chip allows us to control. The 
four ADSR factors are: 


1) Attack: The rise time of a note. 

2) Decay: The time taken for a note to fall to a 
steady level. 

3) Sustain: The volume of a steady level. 

4) Release: The time taken for the volume of the 
note to fall from sustain level to zero. 


The attack, decay and release sections of a note are 
each controlled by nybbles (four bits) within the 
SID chip registers. This means that each of these 
parameters takes a value between 0 and 15. The 
relationship between the values that must be 
POKEd into the SID registers and the real timings 1s 
given in the following table: 
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The length of the sustain section is determined by 
using a delay loop. Using this table, the ADSR 
values for a violin note might be: 





To produce a sound on the Commodore 64 we 
have to take a minimum of six steps. For example: 


@ Step 1: Turn on the volume using: 
POKE SID+24;15 
@ Step 2: Select ADSR. For example: 


POKE SID+5,9 :REM ATTACK/DECAY VOICE #1 
POKE SID+6,0 :REM SUSTAIN/RELEASE VOICE #1 


@ Step 3: Select the frequency for each oscillator. 
For example: 


POKE SID+1,25:REM HI-BYTE FREQ VOICE #1 
POKE SID,0 :REMLO-BYTE FREQ VOICE#1 


® Step 4: Select the desired waveform type. For 
example: 


POKE SID+4,33 :REM SELECT SAWTOOTH FOR 
VOICE# 1. 


At this point the sound begins to play — which is 
referred to as opening the ‘gate’. 


@ Step 5: A delay loop while the note plays at the 
sustain level. 


®@ Step 6: The waveform must be released. For 
example: 


POKE SID+4,32 :REM RELEASE SAWTOOTH 


The simplest way to program the Commodore 64 
to play a tune is to set initial values of ADSR, and 
construct a FOR loop that READs frequency hi/lo 
bytes from DATA statements. By inserting zeros in 


the data statements, the tempo can be varied for 


different voices while keeping the delay constant. 


Drum Machine 


The Drum Machine program we give here uses an 
IRQ wedge, so that once the drums have been set up 
they will continue to play regardless of what we are 
doing in BASIC. The program also has an interesting 
way of checking from machine code to see what key 
has been pressed — it inspects the contents of 
location 197 (SO0C5). This is a zero page location 
that contains a value describing the last key pressed. 
A machine code program can save you the trouble of 
a kernel call to get a keypress, provided S00C5 is 
sampled sufficiently often. 

Note that because the BASIC driver does not 
actually empty the keyboard buffer using GET or 
INPUT, the program must set the pointer in location 
198 (SO0C6) to zero upon exit. This is the zero page 
location, which normally contains the number of 
keypresses stored in the keyboard buffer. 

When using the program, each drum is allocated 
16 time slots in which it can sound, and these are 
displayed in a grid on the screen. The choice of 16 
makes it easy to set up a four-four rock rhythm. The 
sprite cursor is moved into one of the grid’s cells, 
and when itis in the correct position a time slot can 


BASIC Rhythm Generator Program 


1606 REM **RHYTHM GENERATOR** 

1916 PRINTCHR#(147):REM CLEAR SCREEN 

1426 GOSUB15S1@:REM SETUP M/C+SPRITE 

193@ GOSUBi274:REM SETUP SCREEN 

1646 SYS¢49152):REM *INSERT WEDGE* 

1658 REM SYS¢49175) TO REMOVE WEDGE 

1666 REM *MAIN LOOP® 

1676 P=PEEK(197):REM CURRENT KEYPRESS 

1680 ILFP=37THENY=7Y-16:SY=SY-1:IFY<9STHENY=?5:SY=6 
1696 I[FP=346THENY=Y+16:SY=SYt1:1TFYol27THENY=1 27:SY= 


1166 IFRP=4/7THENX=x-146:SxX=SxX-1:1FX<28THENX=28: Sx=6 
111@ ITFP=44THENX=x+16:SxX=SxX+1:1FX%? 268THENX=268: Sx= 


1i26 2@=6:I1FP=1THENZ=1 
1136 PRINTCHR#(19):3S$;"TEMPO =";PEEK( 67%?) ;CHRE( 157 


114@ POKEVIC+16,xX/256:POKEVIC,XAND255 

1156 POKEVICtI LY 

11466 REM**COMPUTE SCREEN LOC FROM SPRITE X,Y POS 
1176 SC=B+INT‘(¢Y¥-S0)78+1)24@+INT(CX-182978) 

1186 IFSY=6THENROW=S6660:REM BASS DRUM 

119@ IFSY=1THENROW=50616:REM SNARE DRUM 

1266 IFSY=2THENROW=S@632:REM COW BELL 
1216 IFZ=1ANDPEEK(SC)=32THENPOKESC, 24:POKEROW+SX, 1 
: GOTO 236 

1226 IFZ=1ANDPEEK(SC)=24THENPOKESC , 32: POKEROQW+SX ,@ 
1236 IFP=S1THENGOSUBI 476:FORI=@7T056:POKES@@G6+I,@: 
NEXT 

1246 IFP=S/7THENPOKE1 7S ,@:POKEVIC+21 ,@:PRINTCHRS(14 
7) :END 

1256 GOTO1G76 

1266 REM *SET UP SCREEN#® 

1276 PRINTCHRE(19) ; 

1286 S$=CHR$(17)+CHRS(1 79+CHRE¢1 7) 

1296 PRINTTABC 3)" 


1308 PRINTCHR#(18)TABC3)" **** CBMé4 RHYTHM GENER 
ATOR **¥*¥*¥ " 

131@ PRINT:PRINT:PRINT 

1328 PRINT" - --------------- " 

1338 PRINT" -BASS" 


134@ PRINT" - ------------+--- " 
135@ PRINT" -SNARE 


136@ PRINT" - --------------- f 
1376 PRINT" —~BELL” 


1386 FPRINI® —- — — - — = -—-—-—---—---- : 
1398 PRINT:PRINTTABC8)"QPTIONS...." 

1466 PRINTTABCS)"CF1] PLAY RHYTHM" 

141@ PRINTTAB‘8)"CF3] DECREASE TEMPO" 

1426 PRINTTABCS8) "CF5] INCREASE TEMPO" 

143@ PRINTTABC8)"CF7] STOP RHYTHM" 


be activated/de-activated with the Return key, and 
the rhythm turned on using the f1 key. The on- 
screen menu displays the options available. 


Because the sounds are interrupt-driven, the rhythm 
pattern can be edited on screen while the rhythm is 


playing. 


The BASIC program includes all the machine 


code necessary to drive the program as DATA 


statements and can be typed in and run as given. We 


also provide a source code listing for the machine 
code part of the program. If you wish to type in and 
assemble the source code, then lines 1520 to 1540 
and the DATA statements between lines 1620 and 
1940 can be omitted. 


With the program running, try setting up the 


pattern below for a classic rhythm: 








| x<| 
| ><] 


| x<| 
[*<| 
|*<| 


PRINTTABC 8) "CCLRI CLEAR CHART" 
PRINTTABCS) "C8T] END PROGRAM" 


PRINTTABCS>"C<] MOVE CURSOR LEFT” 
PRINTTABC8)"C>] MOVE CURSOR RIGHT" 


PRINTTABC 8) "CK] MOVE CURSOR UP" 


PRINTTABC8)"C(M] MOVE CURSOR DOWN" 


RETURN 

REM *SEI UP M/CODE & SPRITE* 
FORI=49152T049413 
READJ:C=C+J:POKEI ,J:NEXTI 


READJ:IFC<>JTHENPRINT"DATA ERROR" :END 


FORI=@T062:READJ:POKES832+1,J3:NEXTI 


VIC=S32498 :X=28:Y=95:B=18024:SID=S54272 


FORI=@TO24:POKESID+I1 ,@:NEXTI 


POKESID+24,15:POKEVICt+21 ,1:POKE2646,13 


POKE254,15:POKE679,15:POKEVIC+39, 1 
FORI=@T05@:POKES@@00+1 ,@:NEXT 
RETURN 

REM¥¥*M/C DATAx#* 

DATA! 20,173,28,3,133,251,173,21,3 
DATAL 33,252,169, 36,141 ,26,3,169 
DATAL92,141,21,3,88, 96,120,165, 251 
DATA141 ,20,3,165,252,141,21,3,88 
DATA96, 32,177,192,165,197,201,3 
DATA2@8,3,32,135,192,1465,197,281,4 
DATA208,3,32,140,192,165,197,201,5 
DATA2@8,3,32,155,192,1465,197,281,6 
DATA2@8,3, 32,146,192, 32,87,192,142 
DATA168,2,140,169,2,76,49, 234,165 
DATA253, 208,1, 96,198, 254, 248,1,96 
DATA32,149,192, 224,16, 208,3,32,144 
DATA192,195,8@,195,246,3,32,184 
DATA192,1985,96,195,240,3,32,218 
DATA192,185,112,195,240,3, 32,236 
DATAL 92, 200 , 234, 232,96,169,8,133 
DATA253,96,169,1,133,253,162,8,140 
DATA ,96,173,1467,2,133, 254,946,173 
DATA167,2, 281,255, 24@,3,238,167,2 
DATA96,173,167,2,201,1,240,3,206 
DATA167,2,96,174,168,2,172,169,2 
DATA96,169,14,141,6,212,169,32,141 
DATA2, 212,169, 66,141,4,212,169,3 
DATA141,1,212,169,465,141,4,212,96 
DATA169,7,141,12,212,169,12,141,13 
DATA212,169,128,141,11,212,1469,65 
DATA141,8,212,169,129,141,11,212 
DATA96,169,2,141,19,212,169,13,141 
DATAZ2@ , 212,169,19,141,18, 212,169 
DATA190,141,15,212,169,17,141,18 
DATA212,96 

DATA32038 : REM*CHECKSUM* 
REM¥*SPRITE CURSOR DATAx* 
DATA127,254,0,127,254,8,127,254,@ 
DATA112,14,9,112,14,8,112,14,0,112 
DATA14,0,112,14,@,112,19,8,112,14 
DATA@,112,14,@,127,254,0,127,254,8 
DATA127,254,9,49,9,0,8,9,0,0,9,8,0 
DATAG,@,8,0,9,9,0,08,8,9,0 








-BASS 
-~SNARE 
-BELL 
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Assembly Listing 


PEt tet ete tetetetetetetet 
Ett ttt tet et ete tet et ett 


t++ 


++ 


3++ CBM DRUM MACHINE ++ 


r++ 
++ 


SOURCE CODE 


++ 
++ 


PtHtt ttt tte et eet ete ett 
Stet ttt +e tse tteteetetest 


bs 

VOL 
ATT I 
SUS1 
PULSE 
WAVE 1 
BASS 
ATT2 
SUS2 
WAVE 2 
SNARE 


Be meee ee meee coe meme ceenes emt nem sasend met smi cue cue Gees GEES SECIS GSenY Sercey comene seme Gurr comm smh. sommes emus sun emeuey commer. cm conc semese cams. covey coeur meueeecoemue meee Semeny canes. cmnieh eum. sommes womens wewien cumeen cumees comer res nomet fet cust samme 


1D coeen, omeme comes seteee comme eres. semesy fomied exec Goren meemrs sianmy surust wows erases qrmmes rome como nemed seats comeén nnam eniems enemy cons wemns pessev moms coms come sient Orns Goin nests exons CGUGD some poms comes cine cbue. semen cleus wpny femmes acres conem ome mou conte tems ccnewe cmeer 


CONT 1 


CONT 2 


CONT 3 


CONT 4 


;GET TOGGLE VALUE 
;1F EQUAL TO 1 THEN BRANCH 


$D418 
$D465 
D406 
$D462 
D404 
$D461 
SD46C 
$D46D 
$D46B 
D468 
D413 
D414 
D412 
$D46F 
$C356 
$C368 
$C376 
$6 2A7 
$82A8 
$@2A9 
SFB 


LDA PLAY 
BNE BEGIN 


;SID VOLUME 

SID ATTACK VOICE 1 

sSID SUSTAIN VOICE 1 

SID PULSE RATE VOICE 1 

sSID WAVEFORM VOICE 1 

;SID HI-BYTE FREQ VOICE 1 

SID ATTACK VOICE 1 

sSID SUSTAIN VOICE 2 

;SID WAVEFORM VOICE 2 

SID HI-BYTE FREQ VOICE 2 

sSID ATTACK VOICE 3 

:SID SUSTAIN VOICE 3 

;SID WAVEFORM VOICE 3 

;SID HI-BYTE FREQ VOICE 3 
sSTORAGE FOR VOICE 1 

;STORAGE FOR VOICE 2 

STORAGE FOR VOICE 3 

;sTEMPORARY STORE FOR DELAY 
sTEMPORARY STORE FOR X REGISTER 
:TEMPORARY STORE FOR Y REGISTER 
;STORE FOR LO-BYTE VECTOR 
STORE FOR HI-BYTE VECTOR 
sTOGGLE FOR PLAY DRUM (1=YES) 
;STORE FOR CURRENT DELAY STATUS 
;CURRENT KEY PRESSED 


;DISABLE INTERRUPT REQUEST 
;GET CONTENTS OF VECTOR LO-BYTE 
sSTORE IN LOVEC 

:GET CONTENTS OF VECTOR HI-BYTE 
;STORE IN HIVEC 

;GET LO-BYTE WEDGE START ADDR. 
STORE IN IRQ VECTOR LO-BYTE 
;GET HI-BYTE OF WEDGE START 
STORE IN IRQ VECTOR HI-BYTE 
RESUME INTERRUPT REQUEST 
sRETURN 


;DISABLE INTERRUPT REQUEST 
;GET ORIGINAL VALUE FROM LOVEC 
;STORE IN IRQ VECTOR LO-BYTE 
;GET ORIGINAL VALUE FROM HIVEC 
STORE IN IRQ VECTOR HI-BYTE 
sRESUME INTERRUPT REQUEST 

» RETURN 


:GOSUB REG 
‘WHICH KEY PRESSED ? 

-1S IT FUNCTION KEY #1 ? 
»BRANCH IF NOT TRUE 
-GOSUB FLAGG 

sWHICH KEY PRESSED ? 

»1S IT FUNCTION KEY #7 7 
»BRANCH IF NOT TRUE 
»GOSUB FLAG! 

*WHICH KEY PRESSED ? 

°IS IT FUNCTION KEY #3 ? 
*BRANCH IF NOT TRUE 
:GOSUB ADD 

"WHICH KEY PRESSED ? 

-1S IT FUNCTION KEY #5 ? 
»BRANCH IF NOT TRUE 
-GOSUB MINUS 

:GOSUB REST 

»STORE VALUE OF X REGISTER 
‘STORE VALUE OF Y REGISTER 
» JUMP BACK TO INTERRUPT 
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BEGIN DEC DELAY | ;DECREMENT DELAY 
BEG START  ;BRANCH IF ZERO 
RTS sRETURN 
§ 
START JSR COUNT  ;GOSUB COUNT 
CPX #910 sEND OF LOOP ? 
BNE CHECK  ;BRANCH IF NOT @ 
JSR RESET  ;GOSUB RESET 
CHECK LDA ROW!,Y ;GET VALUE OF ROW1 OFFSET BY Y 
BEG NEXT!  ;:BRANCH IF ZERO 
JSR DRUMi  ;GOSUB DRUM1 
NEXT1 LDA ROW2,Y ;GET VALUE OF ROW2 OFFSET BY Y 
BEG NEXT2  ;BRANCH IF ZERO 
JSR DRUM2  ;GOSUB DRUM2 
NEXT2 LDA ROW3,Y ;GET VALUE OF ROWS OFFSET BY Y 
BEG NEXT3  ;BRANCH IF ZERO 
JSR DRUM3  ;GOSUB DRUM3 
NEXT3  INY ; INCREMENT OFFSET 
INX ; INCREMENT LOOP COUNTER 
RTS s RETURN 
b 
; SUBROUTINES 
FLAG@ LDA #%00 ;STORE ZERO - 
STA PLAY sIN PLAY 
RTS s RETURN. 
9 
FLAG! LDA #81 ;STORE 1 - 
STA PLAY ;IN PLAY 
RESET LDX #900 sRESET X REGISTER 
LDY #$00 ;RESET Y REGISTER 
RTS » RETURN 
5 
COUNT LDA TEMPO  ;GET VALUE OF TEMPO 
STA DELAY  ;STORE IN DELAY 
RTS s RETURN 
bd 
ADD LDA TEMPO ;GET VALUE OF TEMPO 
CMP H$FF *COMPARE RESULT WITH 255 
BEQ CONTS  ;BRANCH IF TRUE 
INC TEMPO  ;INCREMENT TEMPO 
CONTS RTS s RETURN 
MINUS LDA TEMPO  ;GET VALUE OF TEMPO 
CMP #$01 :COMPARE RESULT WITH 1 
BEQ CONTS  ;BRANCH IF TRUE 
DEC TEMPO  ;DECREMENT TEMPO 
CONTé RTS : RETURN 
5 
REG LDX XCOUNT ;STORE VALUE OF XCOUNT IN X REG 
LDY YCOUNT ;STORE VALUE OF YCOUNT IN Y REG 
RTS » RETURN 
b 
:DRUM SOUND ROUTINES 
DRUM! LDA #$@E : SET 
STA SUS! ° 
LDA #%20 UP 
STA PULSE; 
LDA ##42 -BASS 
STA WAVE1 _-; 
LDA #$83 » DRUM 
STA BASS : 
LDA #%41 :AND PLAY 
STA WAVE]: 
RTS »RETURN 
§ 
DRUM2 LDA #%67 » SET 
STA ATT2 : 
LDA ##@C : UP 
STA SUS2 : 
LDA #$80 : SNARE 
STA WAVE? ; 
LDA #841 : DRUM 
STA SNARE _ ; 
LDA ##81 “AND PLAY 
STA WAVE? ; 
RTS » RETURN 
bf 
DRUM3 LDA #%@2 : SET 
STA ATT3 ; 
LDA #$@D : UP 
STA SUS3 ; 
LDA #$12 s COW 
STA WAVES; 
LDA ##64 »BELL 
STA BELL ; 
LDA #$11 :AND PLAY 
STA WAVES ; 
RTS » RETURN 
.END 


s RETURN 
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